home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / tls / tls035c.1 / lib / vtcl / tests / help.tcl / help.tcl
Encoding:
Text File  |  1995-03-23  |  1.7 KB  |  77 lines
  1. #
  2. # A test of help connections
  3. #
  4.  
  5. source tools.tcl
  6.  
  7. set menuList {
  8.     {pd File F}
  9.         {bt New   N "Ctrl<Key>N" "Ctrl+N" }
  10.         {bt Open  O "Ctrl<Key>O" "Ctrl+O" }
  11.         {bt Close }
  12.     {sp}
  13.         {bt "Print SetUp"    }
  14.         {bt "Print" "Ctrl<Key>P" "Ctrl+P" }
  15.     {sp}
  16.         {bt Exit E "Ctrl<Key>E" "Ctrl+E" QuitCB}
  17.  
  18.     {pd Edit E}
  19.         {bt Cut   C "Ctrl<Key>X" "Ctrl+X" }
  20.         {bt Copy  o "Ctrl<Key>C" "Ctrl+C" }
  21.         {bt Paste P "Ctrl<key>V" "Ctrl+V" }
  22.     {sp}
  23.     {bt Delete D "<key>Delete" Delete }
  24.     {pd View  V}
  25.         {bt Some  S "Ctrl<Key>S" "Ctrl+S" }
  26.         {bt Parts P ""       }
  27.  
  28.     {pd AnimalBook  T}
  29.         {bt "Dog"    "" "" ""  "sendTopicCB Animal"  }
  30.         {bt "Cat"    "" "" ""  "sendTopicCB Animal"  }
  31.         {bt "Bird"   "" "" ""  "sendTopicCB Animal"  }
  32.  
  33.     {pd PlantBook  T}
  34.         {bt "Weed"    "" "" ""  "sendTopicCB Plant"  }
  35.         {bt "Tree"    "" "" ""  "sendTopicCB Plant"  }
  36.         {bt "Flower"  "" "" ""  "sendTopicCB Plant" }
  37. }
  38.  
  39. proc genericMenuCB {cbs} {
  40. }
  41.  
  42. proc customHelpCB {cbs} {
  43.     echo $cbs
  44. }
  45.  
  46. proc sendTopicCB {book cbs} {
  47.      set target [keylget cbs widget]
  48.      
  49.      set label [VtGetValues $target -label]
  50.  
  51.      VtDisplayHelp $target -topic $label -book $book
  52. }
  53.  
  54. set app [VtOpen HelpMe HelpBook]
  55.  
  56. VtSetAppValues $app -versionString "Dumb Example   \n\n  1.2.3.4"
  57.  
  58. set dlog [VtFormDialog $app.HelpForm]
  59.  
  60. set menub [VtMenuBar $dlog.menub -helpMenuItemList {INDEX ON_VERSION}]
  61.  
  62.  
  63. VxMenu $dlog $menub $menuList genericMenuCB
  64.  
  65.  
  66. set rc [VtRowColumn $dlog.rc -horizontal \
  67.     -leftSide FORM -topSide $menub -rightSide FORM]
  68.  
  69. foreach but {dog cat plant olaf bruti pima} {
  70.     VtPushButton $rc.$but -helpCallback customHelpCB
  71. }
  72.  
  73. VtShowDialog $dlog
  74.  
  75. VtMainLoop
  76.  
  77.